Membuat hapus data 

Start xampp 

Diklik di gridview 

Data tampil di textbox 

Maka jika tekan buton hapus maka ada konfirmasi apakah data dihapus 
Jika klik no tidak dihapus 

Kalau yes maka dihapus 

Maka langsung saja buat 

Doublek button hapus 

Kita buat dibawahnya nya 

End ifnya 

Dim pesan as string 

Pesan = tampilkan pesan msgbox(“pesan nya “ & txtkodeadmin.text & 
“" vbYesNo--vbOuestion 

Jika diklik yes maka dihapus 

If pesan = vbYes Then 

Dim hapus as string 

Hapus—”delete form tbl admin where ” data yg unik tidakboleh sama 
Kemudian cmd = new odbc(hapus,kon) 

Cmd.executel) 

Maka tampilkan pesan msgb(“databerhasil dihapus”) jika klik ok 
Maka pangil 

Buat default 

Jika no 

Kosongkan text 

Tidaksiapisi 

Kondisiawal 
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Coba dirun 

Jika klik no maka datanya tidak dihapus 
Kalau yes data berhasil dihapus 

Kalau sudah klik oke maka sudah menrefresh 
Tambahkan lagi exit sub 
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EZTOT Hn SAE me 
Ketika klik batal maka dia akan proses sampai exit sub saja 
Maka sudah berhasil 


Form yg diubah 
Imports System.Data .0dbc 
Public Class form master 
Private Sub Button1 Click(sender As Object, e As EventArgs) Handles 
Button1.Click 
bukaDB() 


End Sub 


Sub TIDAKSIAPDIISI() 


txtkodeadmin.Enabled = False 
txtnamaadmin.Enabled = False 
txtkatasandi.Enabled = False 


ComboBox1.Enabled = False 


End Sub 

Sub SIAPISI() 
txtkodeadmin.Enabled = True 
txtnamaadmin.Enabled = True 
txtkatasandi.Enabled = True 
ComboBox1.Enabled = True 

End Sub 


Sub KOSONGKANTEXT () 
txtkodeadmin.Text = "" 
txtnamaadmin.Text = "" 
txtkatasandi.Text = "" 
ComboBox1.Text = "" 

End Sub 

Sub KONDISIAWAL () 
btntambah.Text = "TAMBAH" 
btnedit.Text = "EDIT" 
btnhapus.Text = "HAPUS" 

End Sub 

Sub ISICOMBOBOX1() 
ComboBox1. Items .Add ("ADMIN") 
ComboBox1. Items .Add( "USER" ) 

End Sub 


Sub TAMPILGDV () 
bukaDB() 
da = New OdbcDataAdapter( "SELECT kodeadmin,namaadmin,katasandi,level from 
tbl admin", conn) 
ds = New DataSet 
da.Fill(ds, "tbl admin") 
DataGridViewl.DataSource - ds.Tables("tbl admin") 
End Sub 


Sub URUTANOTOMATIS() 
bukaDB() 
Dim urutankode As String 
Dim hitung As String 
cmd = New OdbcCommand("SELECT * FROM tbl admin where kodeadmin in(select 
max(kodeadmin) from tbl admin)", conn) 
rd - cmd.ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "AGM" + "001" 
Else 
hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("00" & hitung, 3) 
End If 
txtkodeadmin.Text = urutankode 
txtkodeadmin.Enabled = False 
End Sub 
Sub ATURGDV() 


DataGridViewl.Columns(0).Width = 130 
DataGridViewl.Columns (1).Width = 130 
DataGridViewl.Columns (2).Width = 130 


DataGridViewl.Columns (3).Width = 100 
DataGridView1l.Columns(0).HeaderText = "KODE ADMIN" 
DataGridView1l.Columns(1).HeaderText = "NAMA ADMIN" 
DataGridViewl.Columns (2).HeaderText = "KATA SANDI" 
DataGridViewl.Columns (3).HeaderText = "LEVEL" 
DataGridViewl.ColumnHeadersDefaultCellStyle.Alignment = 
DataGridViewContentALignment .MiddleCenter 
DataGridViewl.ColumnHeadersDefaultCellStyle.Font = New Font("Ouicksand", 
10, FontStyle.Bold) 
DataGridViewl.DefaultCellStyle.Font = New Font("Ouicksand", 9) 
DataGridViewl.AlternatingRowsDefaultCellStyle.BackColor = 
Color.GreenYel low 


End Sub 


Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah.Click 


Try 

If btntambah.Text - "TAMBAH" Then 
btntambah.Text - "SIMPAN" 
btnhapus.Text - "BATAL" 
SIAPISI () 
URUTANOTOMATIS () 
txtnamaadmin.Focus () 

ElseIf txtkodeadmin.Text = "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtkodeadmin.Focus () 

ElseIf txtnamaadmin.Text = "" Then 
MsgBox ("Kode tidak boleh kosong", vbExclamation) 
txtnamaadmin.Focus () 

ElseIf txtkatasandi.Text = "" Then 
MsgBox ("Kata Sandi tidak boleh kosong", vbExclamation) 
txtkatasandi.Focus () 

ElseIf ComboBoxl.Text = "" Then 
MsgBox ("Level tidak boleh kosong", vbExclamation) 
ComboBox1.Focus () 

Else 
bukaDB( ) 
Dim simpan As String 
simpan - "INSERT INTO tbl admin values('" & txtkodeadmin.Text & 

"1" & txtnamaadmin.Text & "','" & txtkatasandi.Text & "','" & ComboBoxl.Text & 


aD A 
cmd = New OdbcCommand (simpan, conn) 
cmd.ExecuteNonguery () 
MsgBox ("Data admin berhasil ditambah") 
KOSONGKANTEXT () 
TIDAKSIAPDIISI () 
KONDISIAWAL () 
TAMPILGDV () 


End If 
Catch ex As Exception 

MsgBox ("Data admin gagal ditambah") 
End Try 


End Sub 


Private Sub form master Load(sender As Object, e As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI () 
ISICOMBOBOXL ( ) 
TAMPILGDV () 
ATURGDV () 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 
If btnhapus.Text = "BATAL" Then 
KOSONGKANTEXT ( ) 


TIDAKSIAPDILISI () 
KONDISIAWAL () 
Exit Sub 
End If 
Dim pesan As String 
pesan = MsgBox( "Hapus data dengan kode admin " & txtkodeadmin.Text & "", 
vbYesNo + vb0uestion) 
If pesan = vbYes Then 
Dim hapus As String 
hapus - "DELETE from tbl admin where kodeadmin-'" & txtkodeadmin.Text 
& nin 
cmd = New OdbcCommand (hapus, conn) 
cmd . ExecuteNonQuery() 
TIDAKSIAPDIISI() 
KOSONGKANTEXT ( ) 
KONDISIAWAL() 
TAMPILGDV () 
Else 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
KONDISIAWAL() 
End If 


End Sub 


Private Sub DataGridViewl CellContentClick(sender As Object, e As 
DataGridViewCellEventArgs) Handles DataGridViewl.CellContentClick 


End Sub 


Private Sub DataGridViewl CellMouseClick(sender As Object, e As 
DataGridViewCellMouseEventArgs) Handles DataGridViewl.CellMouseClick 
txtkodeadmin.Text = DataGridViewl.Rows (e.RowIndex).Cells (0). Value 
txtnamaadmin.Text DataGridViewl.Rows (e.RowIndex).Cells (1). Value 
txtkatasandi.Text = DataGridViewl.Rows (e.RowIndex).Cells (2). Value 
ComboBox1.Text = DataGridViewl.Rows (e.RowIndex).Cells(3).Value 
End Sub 


Private Sub btnedit Click(sender As Object, e As EventArgs) Handles 
btnedit.Click 
If btnedit.Text - "EDIT" Then 
btnedit.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 


SIAPISI () 
txtkodeadmin.Enabled = False 
ElseIf txtkodeadmin.Text = "" Then 
MsgBox ("Pilih data yang mau di edit") 
Exit Sub 
ElseIf txtnamaadmin.Text = "" Then 


MsgBox ("Nama admin tidak boleh kosong") 
txtnamaadmin.Focus () 
Exit Sub 

ElseIf txtkatasandi.Text = "" Then 
MsgBox("Kata Sandi tidak boleh kosong") 
txtkatasandi.Focus() 
Exit Sub 

ElseIf ComboBoxl.Text = "" Then 
MsgBox( "Level tidak boleh kosong") 


ComboBox1.Focus () 
Exit Sub 
Else 
bukaDB( ) 
Dim edit As String 
edit - "UPDATE tbl admin set namaadmin-'" & txtnamaadmin.Text & 
"! katasandi='" & txtkatasandi.Text & "',level-'" & ComboBoxl.Text & "' WHERE 
kodeadmin-'" & txtkodeadmin.Text & "'" 
cmd = New OdbcCommand(edit, conn) 
cmd.ExecuteNonguery () 
MsgBox( "Data berhasil diubah") 
TAMPILGDV () 
KONDISIAWAL ( ) 
KOSONGKANTELXT () 
TIDAKSIAPDLISI () 
End If 
End Sub 
End Class 


